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Timing  Variation  in  Dual  Loop  Benchmarks 


Abstract 

Benchmarks  that  measure  time  values  using  a  standard  system  clock  often  employ  a 
dual  loop  design.  One  of  the  important  assumptions  of  this  design  is  that  textually 
identical  loop  statements  will  take  the  same  amount  o£  time  to  execute.  This  as¬ 
sumption  was  tested  on  two  bare  computers  with  Ada^test  programs  and  has  been, 
demonstrated  to  be  inaccurate  in  these  specific  test  cases.  J  •  .  ■  < "  ' 

*  '  y.  >  trS  r-*‘  ) 

d  - 

1.  Dual  Loop  Benchmarks:  Purpose  and  Assumptions 

Benchmarks  are  tests  designed  to  measure  the  capabilities  of  a  computer  system.  They  are 
used  to  compare  different  computer  systems  and  determine  the  suitability  of  a  computer  system 
for  particular  tasks.  Benchmarks  show  a  wide  variation  in  what  they  are  intended  to  measure, 
how  they  are  designed,  and  how  they  are  implemented.  Many  benchmarks  produce  outputs  that 
are  measurements  of  the  time  required  to  perform  some  task.  A  common  technique  is  to  write  a 
program  that  performs  some  interesting  bit  of  work  (e.g.,  a  rendezvous)  sandwiched  between 
calls  to  a  system  timer. 

Benchmarks  that  use  time  as  a  unit  of  measure  vary  widely  in  the  time  they  require  to  run.  Some 
tasks  are  brief  and  can  take  fractional  parts  of  a  second  to  execute.  Others  measure  durations  of 
minutes  or  hours.  The  ability  of  computer  clocks  to  measure  this  range  of  times  also  varies 
widely.  A  system  clock  available  to  a  benchmark  designer  may  be  accurate  only  to  a  tenth  of  a 
second,  far  too  slow  to  measure  an  event  in  the  millisecond  or  microsecond  range.  More  ac¬ 
curate  timing  devices  are  often  available,  but  as  an  option  rather  than  as  a  standard  component. 
For  benchmarks  intended  for  general  use,  a  dual  loop  benchmark  design  is  often  used  to  permit 
the  benchmark  to  execute  on  an  unmodified  system. 

Dual  loop  benchmarks  handle  the  problem  of  imprecise  clocks  by  extending  the  duration  of  the 
test  to  a  length  that  the  clock  can  readily  measure.  The  time  required  for  a  test  is  extended  by 
repeating  the  test  numerous  times  between  calls  to  the  system  timer.  Repetition  is  usually  pro¬ 
grammed  by  inserting  the  test  in  a  loop,  where  the  number  of  repetitions  may  be  conveniently 
changed.  The  increased  time  duration  of  the  test  series  can  be  measured  easily,  and  the  time  for 
the  individual  test  can  be  determined  by  computing  the  average  value  for  the  test  series.  Intro¬ 
ducing  a  loop  construct  into  the  test  adds  time,  which  must  be  factored  out.  This  is  done  with  a 
second  loop,  a  control  loop,  which  contains  only  the  loop  construct  and  not  the  actual  test.  The 
time  required  for  the  benchmark  is  assumed  to  be  the  value  obtained  by  subtracting  the  control 
loop  time  from  the  test  loop  time.  An  Ada  skeleton  for  a  dual  loop  benchmark  appears  as 
follows:1 


'This  Ada  program  fragment  requires  that  the  constant  SOME_VALUE  and  a  procedure  TEST  be  added  before  the 
program  can  actually  be  run.  In  actual  practice,  precautions  must  be  taken  to  ensure  optimization  by  the  compiler  does 
not  alter  the  essential  program  structure.  For  example,  because  the  empty  loop  contains  no  executable  statements,  it 
might  be  removed  by  a  compiler. 
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with  CALENDAR;  us*  CALENDAR; 

proc*dux*  DUAL_LOOP_EXAMPLB  is 

:  constant  INTEGER  :■  SOME_VALOE; 

:  CALENDAR.  TIME; 

:  CALENDAR. TIME; 

:  CALENDAR. TIME; 

:  CALENDAR. TIME; 

:  DURATION; 

begin 

—  T*st  loop 

START_TEST  :»  CALENDAR. CLOCK; 

for  INDEX1  in  1 . . NUMBER_OF_TESTS  loop 

TEST;  —  Test. 

end  loop; 

STOPJTEST  :■  CALENDAR. CLOCK; 

—  Control  loop 

STARTjCONTROL  :■  CALENDAR. CLOCK ; 
for  INDEX1  in  1. .NUMBER_OP_TESTS  loop 

ntill;  —  No  Test, 

end  loop; 

STOPjCONTROL  :■  CALENDAR. CLOCK; 

AVERAGE_TIME  :»  ( (STOP_TEST  -  START_TRST)  - 

(STOPjCONTROL  -  START_CONTROL) ) 

/  NUMBERjOP_TESTS ; 

•nd  DUAL_LOOP  JEXAMPLE ; 

A  critical  assumption  made  by  the  dual  loop  benchmarking  scheme  is  that  textually  equivalent 
code  constructs  require  the  same  amount  of  time  to  execute.  In  other  words,  time  required  by  the 
loop  constructs  and  control  loops  are  substantially  identical. 


NUMBER_OF_TESTS 

START_TEST 

STOP_TEST 

STARTjCONTROL 

STOPjCONTROL 

AVERAGE  TIME 


2.  Testing  the  Validity  of  the  Dual  Loop  Design  for 
Timing  Benchmarks 

The  assumption  that  textually  equivalent  loops  require  similar  amounts  of  time  was  subjected  to 
test  with  Ada  compilers  for  two  bare  machines:  a  DEC  MicroVAX  II™  computer  using  VAXELN™ 
Ada  Ver.  1.1,  and  a  Motorola  68020  single  board  computer  using  Systems  Designers’  SD 
Ada-Plus™  Ver.  2B.01 .  Times  were  obtained  using  the  routines  in  package  CALENDAR.  For 
DEC  Ada,  SYSTEM.TICK  was  0.01  seconds.  For  SD  Ada-Plus,  SYSTEM.TICK  was  approxi¬ 
mately  0.0078  seconds  (actually  2~7  seconds). 

The  test  program,  CAL2,  used  the  format  of  the  Ada  dual  loop  skeleton,  but  it  increased  the 
number  of  loops  to  five.  Each  loop  was  inserted  into  a  procedure.  The  source  code  for  each  loop 
was  made  as  similar  as  possible.  Only  the  names  of  the  procedures  containing  the  test  loops 
were  allowed  to  differ  between  loops.  By  calling  the  procedures  in  different  sequences,  the  order 
of  loop  execution  was  varied  (e.g.,  first  order,  1-2-3-4-5;  next  order,  5-4-3-2-1;  then,  2-5-1 -3-4). 
This  variation  tested  the  hypothesis  that  the  execution  time  for  a  loop  may  be  affected  by  the  run 
sequence.  Rather  than  using  completely  empty  loops,  a  call  to  a  single  subroutine  was  placed  in 
each  loop,  and  appropriate  checks  were  made  to  ensure  that  the  subroutine  call  was  not  op¬ 
timized  out  of  the  loop  by  the  Ada  compiler  during  program  translation.  The  light  loading  factor 
was  imposed  arbitrarily,  but  it  matched  the  test  loop  of  a  benchmark  measuring  subroutine  call 
overhead.  Output  of  test  results  was  initiated  only  after  testing  was  complete.  There  were  two 
versions  of  CAL 2,  one  for  VAXELN  and  one  for  the  68020,  reflecting  the  differences  in  the  I/O 
packages  available  under  the  two  compilers.  The  VAXELN  version  is  included  as  Appendix  C.a 
(page  17),  and  the  68020  version  as  Appendix  C.b  (page  20).  Note  that  the  68020  version  uses 
the  package  TARGET  JO  rather  than  TEXTJO. 

The  assembly  language  translations  produced  by  each  compiler  were  examined.  The  code  for 
the  loops  proved  to  be  identical  except  for  names  of  variables,  procedures,  and  labels. 

The  programs  were  run  three  times  on  each  target  and  showed  a  consistent  pattern.  Times  for 
individual  loops  were  consistent,  while  times  between  loops  showed  noticeable  variation  (Tables 
2-1  and  2-2).  The  timings  were  sensitive  to  the  number  of  loop  iterations,  the  exact  format  of  the 
loop,  the  location  of  program  code  in  memory,  and  other  factors.2  The  examples  included  here 
show  a  maximum  difference  between  loops  of  about  12%.  The  raw  output  is  included  in  Appen¬ 
dix  B. 

CAL2  showed  a  consistent  pattern  of  variation  on  each  of  the  tested  systems.  The 
MicroVAX/VAXELN  Ada  combination  showed  one  "slow  loop"  and  four  "fast  loops"  with  similar 
times.  The  68020/SD-Ada  combination  showed  two  "slow  loops"  and  three  "fast  loops."  Again, 
the  two  categories  of  loops  shared  similar  times.  The  order  of  execution  of  the  individual  loops 
had  no  effect  on  the  times. 


2Complete  information  is  provided  in  (1). 
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Trial  A 


Trial  B 


Loop  1 

Loop  2  Loop  3  Loop  4  Loop  5 

Variation 

Mode 

4.38 

4.38  4.91  4.38  4.38 

.53(12.1%) 

Mean 

4.38 

4.38  4.91  4.38  4.38 

.53(12.1%) 

Range 

.01 

.02  .01  .01  .01 

(20  samples,  100,000  iterations/loop) 

Loop  1 

Loop  2  Loop  3  Loop  4  Loop  5 

Variation 

Mode 

4.37 

4.37  4.91  4.37  4.37 

.54(12.4%) 

Mean 

4.37 

4.37  4.91  4.37  4.37 

.54(12.4%) 

Range 

.02 

.01  .01  .01  .01 

(20  samples,  100,000  iterations/loop) 


Trial  C 


Loopl  Loop  2  Loop  3  Loop  4  Loop  5 
Mode  4.37  4.37  4.91  4.37  4.37 

Mean  4.37  4.37  4.91  4.37  4.37 

Range  .02  .01  .00  .01  .01 

(20  samples,  100,000  iterations/loop) 


Variation 

.54(12.4%) 

.54(12.4%) 


Table  2-1 :  CAL2  Test  Results  from  VAXELN  Ada  (time  in  seconds) 


The  cause  of  the  variation  in  times  was  analyzed.  For  the  MicroVAX,  testing  established  that  the 
loop  position  in  memory  was  the  critical  factor.  The  virtual  memory  space  of  the  MicroVAX  is 
divided  into  512-byte  pages,  which  correspond  to  identically  sized  physical  pages.  The  slow  loop 
happened  to  span  a  page  boundary  and  consequently  ran  more  slowly  due  to  the  overhead 
inherent  in  shifting  between  pages;  the  loop  changed  as  the  program  size  changed.  A  suggestion 
that  the  variation  was  caused  by  the  byte  alignment  of  individual  loops  with  respect  to  the  four- 
byte  MicroVAX  word  was  considered,  but  the  byte  alignment  of  the  loops  was  identical  (compared 
to  the  start  of  word  boundaries). 

The  68020  processor  accessed  memory  by  word  (four  bytes),  while  the  SD-Ada  compiler  placed 
the  loop  statement  without  regard  to  word  boundaries.  As  a  consequence,  certain  loops  were 
aligned  more  advantageously  and  required  fewer  memory  accesses  to  execute. 
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Trial  A 


Trial  B 


Trial  C3 


Loop  1  Loop  2  Loop  3  Loop  4  Loop  5 

Mode  2.055  2258  2.055  2.312  2.055 

Mean  2.054  2.259  2.055  2.310  2.054 

Range  .008  .008  .008  .007  .008 

(20  samples,  100,000  iterations/loop) 

Loop  1  Loop  2  Loop  3  Loop  4  Loop  5 

Mode  2.055  2.250  2.055  2.312  2.055 

Mean  2.055  2.250  2.055  2.310  2.055 

Range  .008  .008  .008  .007  .000 

(20  samples,  100,000  iterations/loop) 

Loop  1  Loop  2  Loop  3  Loop  4  Loop  5 

Mode  2.086  2.062  2.133  2.055  2.180 

Mean  2.084  2.066  2.133  2.055  2.181 

Range  .008  .031  .000  .000  .008 

(20  samples,  100,000  iterations/loop) 


Variation 

256(12.5%) 

256(12.5%) 


Variation 

257(12.5%) 

.255(12.4%) 


Variation 

.125  (6.1%) 
.126  (6.1%) 


Table  2-2:  CAL2  Test  Results  from  SD  ADA-Plus  on  the  68020  (time  in  seconds) 


3Minof  changes  to  the  source  code  forced  the  recompilation  of  CAL2  for  Trial  C.  Note  the  difference  in  times  when  Trial 
C  is  compared  to  Trials  A  and  B.  The  source  code  for  Trial  C  is  included  in  Appendix  C. 
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3.  Conclusion 


It  is  not  clear  that  the  variation  observed  in  these  examples  will  be  seen  on  all  systems  or  that 
some  variation  in  loop  timings  is  sufficient  to  completely  invalidate  the  technique.  However, 
practitioners  who  simply  prepare  and  run  dual  loop  benchmarks  without  validation  may  garner 
results  that  are  not  accurate.  This  source  of  variation  appears  to  be  dependent  on  the  specific 
hardware/software  combination  under  test;  thus,  the  amount  of  variation  will  vary  depending  upon 
the  hardware,  the  system  software,  the  format  of  the  benchmark,  and  the  specific  load  points 
selected  by  the  interaction  of  these  components.  As  a  consequence,  the  accuracy  of  a  dual  loop 
benchmark  depends  upon  a  highly  specific  set  of  circumstances  and  cannot  be  controlled  by  a 
general  technique  when  the  benchmark  is  written. 

Dual  loop  benchmarking  is  based  on  the  assumption  that  the  time  taken  to  execute  two  textually 
identical  loops  will  be  substantially  identical.  Simple  tests  have  demonstrated  that  textually  iden¬ 
tical  loops  exhibit  substantial  variation  in  execution  time  on  specific  test  systems.  The  conse¬ 
quence  of  this  variation  is  that  benchmark  programs  using  the  dual  loop  paradigm  to  measure  the 
execution  time  of  a  particular  Ada  feature  (such  as  a  subroutine  call)  can  and  do  produce  nega¬ 
tive  values.  The  positive  values  produced  by  such  test  suites  can  be  erroneously  accepted  as 
accurate  despite  unbounded  relative  errors. 
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Appendix  A:  Specific  Configurations  Tested 

A.a.  MicroVAX/VAXELN 


System  Type:  MicroVAX  II  (two  identical  configurations,  SEIYB  and  SEIYC) 

Manufacturer:  Digital  Equipment  Corporation 

Processor:  KA-630 

Peripherals:  Console  terminal,  KWV1 1  real-time  clock;  DRV1 1 J  parallel  interface 

Ada  Compiler:  DEC  VAX™  Ada  Ver.  1.3-23  (under  Micro  VMS™  Ver.  4.5);  VAXELN  Ad 

Ver.  1.1  (under  MicroVMS  Ver.  4.5) 

Run  Time:  VAXELN,  Ver.  2.3;  VAXELN  Ada,  Ver.  1 .1 

Vendor:  Digital  Equipment  Corporation 


A.b.  MC68020/SD-Ada 

System  Type:  MVME™133  single  board  processor  in  Motorola  VME  bus  enclosure 

Manufacturer:  Motorola  Microsystems 

Processor:  MC68020, 1 2.5  Mhz. 

Peripherals:  Console  terminal,  two  RS232  host  connections 

Ada  Compiler:  SD  Ada-Plus  VMS™  x  68020,  Release  2B.01  (under  MicroVMS  Ver.  4.5) 

Run  Time:  SD-Ada  VMX®  x  68020,  Release  2B.01 

Vendor:  Systems  Designers  pic. 
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Appendix  B:  Raw  Data 


B.a.  CAL2  for  the  Micro  VAX/VAXELN 


CAL2 — Multiple  executions  of  identical  loop* — tine  in  second*: 


Run  on  SEXYB  on  4/6/87.  Build  parameters  were: 
characteristic  /nofile  /noserver  /debug-none 

program  CAL2  /kernel_atack-40  /uaer_stack— 40  /  job_priority»0  - 
/process_jpriority— 0  /argument- ( "CONSOLE :  ", 

"25" "NA  XXXXXXXX"":  :BS:  [NA.RZASON_T.CAL21CAL2_VAXELN.LOG" 
device  XQA  /register— 40774440  /vector— 40120  /priority— 4 


“CONSOLE: ”) 


• 

LOOP_l 

LOOP_2 

LOOP  3 

L00P_4 

LOOP  5 

Calling  O: 

1 

4.38 

4.39 

4.91 

4.38 

4.38 

1-2-3-4-5 

2 

4.38 

4.37 

4.91 

4.38 

4.38 

5-4-3. 2-1 

3 

4.37 

4.38 

4.91 

4.38 

4.38 

2-5-1-3-4 

4 

4.37 

4.38 

4.91 

4.38 

4.38 

4-1-5-2-3 

5 

4.37 

4.38 

4.91 

4.38 

4.37 

1-2-3-4-5 

6 

4.37 

4.38 

4.91 

4.38 

4.38 

5-4-3-2-1 

7 

4.38 

4.38 

4.91 

4.37 

4.38 

2-5-1-3-4 

8 

4.38 

4.38 

4.91 

4.38 

4.38 

4-1-5-2-3 

9 

4.37 

4.38 

4.91 

4.38 

4.38 

1-2-3-4-5 

10 

4.38 

4.38 

4.91 

4.37 

4.38 

5-4-3-2-1 

11 

4.38 

4.38 

4.91 

4.38 

4.37 

2-5-1-3-4 

12 

4.37 

4.38 

4.91 

4.38 

4.38 

4-1-5-2-3 

13 

4.38 

4.37 

4.91 

4.38 

4.38 

1-2-3-4-5 

14 

4.38 

4.38 

4.91 

4.37 

4.38 

5-4-3-2-I 

15 

4.38 

4.38 

4.91 

4.38 

4.37 

2-5-1-3-4 

16 

4.38 

4.38 

4.91 

4.37 

4.38 

4-1-5-2-3 

17 

4.37 

4.38 

4.91 

4.38 

4.37 

1-2-3-4-5 

18 

4.38 

4.38 

4.91 

4.38 

4.38 

5-4-3-2-1 

19 

4.38 

4.37 

4.91 

4.38 

4.38 

2-5-1-3-4 

20 

4.38 

4.37 

4.90 

4.38 

4.38 

4-1-5-2-3 

CAL2 — Multiple  executions  of  identical  loops--time  in  seconds: 


Run  on  SEIYC  on  S/29/87.  Build  parameters  were: 
characteristic  /nofile  /noserver  /debug— none 

program  CAL 2  /kernel_stack-40  /user_stack-40  / job_priority-0  - 
/process_priority-0  /argument- ( "CONSOLE : ", 

"25""NA  XXXXXXXX” “ : :FS : [NA.RZASON_T.CAL2JCAL2_VAXELN.LOG" 
device  XOA  /register— 40774440  /vector— 40120  /priority— 4 


"CONSOLE: ") 


• 

LOOP  1 

LOOP  2 

LOOP  3 

LOOP  4 

LOOP  5 

Calling  0: 

1 

4.39 

4.38 

4.92 

4.38 

4.38 

1-2-3-4-5 

2 

4.37 

4.37 

4.91 

4.37 

4.37 

5-4-3-2-1 

3 

4.37 

4.37 

4.91 

4.37 

4.37 

2-5-1-3-4 

4 

4.37 

4.37 

4.91 

4.37 

4.37 

4-1-5-2-3 

5 

4.37 

4.37 

4.91 

4.37 

4.37 

1-2-3-4-5 

6 

4.37 

4.37 

4.91 

4.37 

4.37 

5-4-3-2-1 

7 

4.37 

4.37 

4.91 

4.37 

4.37 

2-5-1-3-4 

8 

4.37 

4.37 

4.91 

4.37 

4.37 

4-1-5-2-3 

9 

4.37 

4.37 

4.91 

4.37 

4.37 

1-2-3-4-5 

10 

4.37 

4.37 

4.91 

4.37 

4.37 

5-4-3-2-1 

11 

4.37 

4.37 

4.91 

4.37 

4.37 

2-5-1-3-4 

12 

4.37 

4.37 

4.91 

4.37 

4.37 

4-1-5-2-3 

13 

4.37 

4.37 

4.91 

4.37 

4.37 

1-2-3-4-5 

14 

4.37 

4.37 

4.91 

4.37 

4.37 

5-4-3-2-1 

IS 

4.37 

4.37 

4.91 

4.37 

4.37 

2-5-1-3-4 
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%  .  *  -  >  .  *  , 
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16 

4.37 

4.37 

4.91 

4.37 

4.37 

4-1-5-2-3 

17 

4.37 

4.37 

4.91 

4.37 

4.37 

1-2-3-4-5 

18 

4.37 

4.37 

4.91 

4.37 

4.37 

5-4-3-2-1 

19 

4.37 

4.37 

4.91 

4.37 

4.37 

2-5-1-3-4 

20 

4.37 

4.37 

4.91 

4.37 

4.37 

4-1-5-2-3 

012 — Multiple  executions  of  identical  loops — time  in  seconds : 


Run  on  SBXYC  on  5/29/87.  Build  parameters  worn: 
characteristic  /nofile  /noserver  /debug—none 

program  CRL2  /kernel_stack-40  /uaer_atach“40  / Job_priority«0  - 
/prooess_priority»0  /argument* ("COMSOLB: 

"25 ""HR  XXXXXXXX"": :PS: [KR.RBRSOM_T.CRL21CRL2_VRXBLX.LOG", 
device  XQR  /register-40774440  /vector-40120  /priority-4 


"COHSOLB:") 


:  • 

LOOP  1 

LOOP  2 

LOOP  3 

LOOP  4 

LOOP  5 

Calling  0: 

1 

4.39 

4.38 

4.91 

4.38 

4.38 

1-2-3-4-S 

2 

4.37 

4.37 

4.91 

4.37 

4.37 

5-4-3-2-1 

3 

4.37 

4.37 

4.91 

4.37 

4.37 

2-5-1-3-4 

4 

4.37 

4.37 

4.91 

4.37 

4.37 

4-1-5-2-3 

5 

4.37 

4.37 

4.91 

4.37 

4.37 

1-2-3-4-S 

6 

4.  V 

4.37 

4.91 

4.37 

4.37 

5-4-3-2-1 

7 

4.37 

4.37 

4.91 

4.37 

4.37 

2-5-1-3-4 

8 

4.37 

4.37 

4.91 

4.37 

4.37 

4-1-5-2-3 

9 

4.37 

4.37 

4.91 

4.37 

4.37 

1-2-3-4-S 

10 

4.37 

4.37 

4.91 

4.37 

4.37 

5-4-3-2-1 

11 

4.37 

4.37 

4.91 

4.37 

4.37 

2-5-1-3-4 

12 

4.37 

4.37 

4.91 

4.37 

4.37 

4-1-5-2-3 

13 

4.37 

4.37 

4.91 

4.37 

4.37 

1-2-3-4-S 

14 

4.37 

4.37 

4.91 

4.37 

4.37 

S-4-3-2-1 

IS 

4.37 

4.37 

4.91 

4.37 

4.37 

2-5-1-3-4 

16 

4.37 

4.37 

4.91 

4.37 

4.37 

4-1-3-2-3 

17 

4.37 

4.37 

4.91 

4.37 

4.37 

1-2-3-4-S 

18 

4.37 

4.37 

4.91 

4.37 

4.37 

S-4-3-2-1 

19 

4.37 

4.37 

4.91 

4.37 

4.37 

2-5-1-3-4 

20 

4.37 

4.37 

4.91 

4.37 

4.37 

4-1-5-2-3 

B.b.  CAL2  for  the  MC68020/SD-Ada 


Date:  Friday,  24  Rpril  1987  10:43:30  B8T 
From:  John.Sluears8aei.aeu.edu 
To:  na8aei.aau.edu 


***  Mote:  Leading  zeros  added  to  fractional  portions  of  tinea  which 

required  then.  This  is  a  fix  of  the  output  problem  with  the 
original  version  of  CRI.2_SD .  NMR  5/28/87 


CRL2_SD — Multiple  executions  of  identical  loops — ties  in  seconds: 


• 

LOOP  1 

LOOP  2 

LOOP  3 

LOOP  4 

LOOP  S 

Calling  O: 

1 

2.  OSS 

2.2S8 

2. 055 

2.312 

2.055 

1-2-3-4-5 

2 

2.  OSS 

2.2S8 

2.  OSS 

2.312 

2.05S 

S-4-3-2-1 

3 

2.  OSS 

2.258 

2.0S5 

2.312 

2.  OSS 

2-5-1-3-4 

4 

2.  OSS 

2.2S8 

2.  OSS 

2.312 

2.  OSS 

4-1-5-2-3 

S 

2.  OSS 

2.2S8 

2.  OSS 

2.312 

2.055 

1-2-3-4-S 

6 

2.  OSS 

2.2S8 

2.0S5 

2.312 

2.055 

5-4-3-2-1 

7 

2 .  OSS 

2.258 

2.  OSS 

2.312 

2.0S5 

2-5-1-3-4 

8 

2.055 

2.258 

2.055 

2.312 

2.055 

4-1-5-2-3 

9 

2. 055 

2.258 

2.055 

2.312 

2.05S 

1-2-3-4-S 

10 

2.055 

2.258 

2.  OSS 

2.312 

2.055 

5-4-3-2-1 

11 

2.  OSS 

2.258 

2. 055 

2.312 

2.055 

2-5-1-3-4 

12 

2.047 

2.258 

2.  OSS 

2.305 

2.047 

4-1-5-2-3 

13 

2.  OSS 

2.258 

2.055 

2.312 

2.055 

1-2-3-4-5 
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14 

2.055 

2.266 

2.055 

2.305 

2.055 

5-4-3-2-1 

15 

2.055 

2.258 

2.055 

2.312 

2.055 

2-5-1-3-4 

16 

2.055 

2.258 

2.047 

2.305 

2.055 

4-1-5-2-3 

17 

2.047 

2.258 

2.055 

2.305 

2.047 

1-2-3-4-5 

18 

2.055 

2.258 

2.055 

2.305 

2.047 

5-4-3-2-1 

19 

2.055 

2.266 

2.055 

2.305 

2.055 

2-5-1-3-4 

20 

2.055 

2.258 

2.055 

2.312 

2.055 

4-1-5-2-3 

Another  run 


CAL2_SD-- Multiple  executions  of  identic*!  loops— -tine  in  seconds : 


Test  # 

LOOP  1 

LOOP  2 

LOOP  3 

LOOP  4 

LOOP  5 

Calling  Order 

1 

2.055 

2.250 

2.055 

2.312 

2.055 

1-2-3-4-5 

2 

2.055 

2.250 

2.055 

2.312 

2.055 

5-4-3-2-1 

3 

2.055 

2.250 

2.055 

2.312 

2.055 

2-5-1-3-4 

4 

2.055 

2.250 

2.055 

2.312 

2.055 

4-1-5-2-3 

5 

2.055 

2.250 

2.055 

2.312 

2.055 

1-2-3-4-5 

6 

2.047 

2.250 

2.055 

2.305 

2.055 

5-4-3-2-1 

7 

2.055 

2.250 

2.055 

2.305 

2.055 

2-5-1-3-4 

8 

2.055 

2.250 

2.053 

2.312 

2.055 

4-1-5-2-3 

9 

2.055 

2.250 

2.055 

2.312 

2.  OSS 

1-2-3-4-5 

10 

2.055 

2.250 

2.055 

2.312 

2.055 

5-4-3-2-1 

11 

2.055 

2.250 

2.055 

2.312 

2.055 

2-5-1-3-4 

12 

2.055 

2.250 

2.055 

2.312 

2.055 

4-1-5-2-3 

13 

2.055 

2.250 

2.055 

2.312 

2.055 

1-2-3-4-5 

14 

2.055 

2.250 

2.047 

2.305 

2.055 

5-4-3-2-1 

15 

2.055 

2.250 

2.055 

2.312 

2.055 

2-5-1-3-4 

16 

2.055 

2.250 

2.055 

2.305 

2.055 

4-1-5-2-3 

17 

2.055 

2.238 

2.055 

2.305 

2.055 

1-2-3-4-5 

18 

2.055 

2.250 

2.055 

2.312 

2.055 

5-4-3-2-1 

19 

2.055 

2.250 

2.055 

2.312 

2.055 

2-5-1-3-4 

20 

2.055 

2.250 

2.055 

2.312 

2.055 

4-1-5-2-3 

Dete:  Thursday,  28  May  1987  13:28:34  EOT 
from:  John.Slusars8sei.ow.edu 
To:  na8sei.oasi.edu 


CAL2_SD — Multiple  executions  of  identical  loops — time  in  seconds: 


■  • 

LOOP  1 

LOOP  2 

LOOP  3 

LOOP  4 

LOOP_5 

Calling  0: 

1 

2.086 

2.055 

2.133 

2.055 

2.180 

1-2-3-4-5 

2 

2.078 

2.062 

2.133 

2.055 

2.188 

5-4-3-2-1 

3 

2.078 

2.086 

2.133 

2.055 

2.188 

2-5-1-3-4 

4 

2.086 

2.062 

2.133 

2.055 

2.180 

4-1-5-2-3 

5 

2.086 

2.062 

2.133 

2.055 

2.180 

1-2-3-4-5 

6 

2.086 

2.062 

2.133 

2.055 

2.180 

5-4-3-2-1 

7 

2.086 

2.086 

2.133 

2.055 

2.180 

2-5-1- 3-4 

8 

2.086 

2.078 

2.133 

2.055 

2.180 

4-1-5-2-3 

9 

2.078 

2.070 

2.133 

2.055 

2.180 

1-2-3-4-5 

10 

2.086 

2.086 

2.133 

2.055 

2.180 

5-4-3-2-1 

11 

2.086 

2.055 

2.133 

2.055 

2.180 

2-5-1-3-4 

12 

2.086 

2.062 

2.133 

2.055 

2.180 

4-1-5-2-3 

13 

2.086 

2.055 

2.133 

2.055 

2.180 

1-2-3-4-5 

14 

2.078 

2.062 

2.133 

2.055 

2.180 

5-4-3-2-1 

15 

2.078 

2.055 

2.133 

2.055 

2.188 

2-5-1-3-4 

16 

2.086 

2.062 

2.133 

2.055 

2.180 

4-1-5-2-3 

17 

2.078 

2.086 

2.133 

2.055 

2.180 

1-2-3-4-5 

18 

2.086 

2.055 

2.133 

2.055 

2.180 

5-4-3-2-1 

19 

2.086 

2.062 

2.133 

2.055 

2.180 

2-5-1-3-4 

20 

2.086 

2.055 

2.133 

2.055 

2.180 

4-1-5-2-3 

loop  alignswnt  data  : 


loop  1  line  77  : 


loop  2 

lina 

94  : 

1004 

loop  3 

lina 

111  : 

1186 

loop  4 

lina 

128  : 

1308 

loop  5 

lina 

145  : 

148i 

Loop*  2  and  4  hav*  starting  alignment  on  32  bit  boundary 
Loop*  1,3,5  hava  starting  alignment  not  on  32  bit 
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Appendix  C:  Test  Programs 

C.a.  CAL2  Source  Code  for  the  MicroVAX/VAXELN 


—  cm  la  a  benchmark  calibration  routine  intandad  to  taat  tha  aaaumption 

—  that  textually  identical  loopa  will  taka  (approximately)  tha  aame  amount 

—  of  time  to  execute. 

—  Tha  routine  was  deviaed  to  verify  that  benchaarka  which  depend  on  a 
--  dual  teat  and  control  loop  atructura  will  execute  correctly  on  the 

—  target  ayatam. 

—  Teat  format  ia  to  call  five  function*  (LOOP_l . . LOOP_5)  executed  in 

—  aucceaaion.  Kach  function  returaa  a  DURATION  value,  obtained  uaing 

—  the  Ada  CALENDER . CLOCK  routine.  The  time  ia  obtained  by  aubtracting 

—  the  time  aa  the  routine  ia  entered  from  tha  time  just 

—  prior  to  the  return  to  caller.  Between  the  two  calla,  a  tight  loop  ia 

—  executed  LOOP_RKPETITIONS  time a.  The  loop  containa  a  aingle  call  to 

—  procedure  PROC .  PROC  a imply  aarvaa  to  place  a  light  load  in  each  of 

—  the  timing  loopa. 

—  The  taat  aalla  are  made  in  a  number  of  arbitrary  ordera  to  allow 

—  detection  of  any  effecta  relating  to  the  total  number  of  machine 

—  cycle*,  aa  oppoaed  to  the  ordering  of  tha  LOOP  routinea. 

—  The  teat  aequence  ia  executed  TEST_REPETXTXONS  time*  to  allow  for  ayatem 

—  intialization  effecta  (and  poaaibly  interruption*  during  execution) . 

—  Raaulta  are  output  at  the  conclusion  of  all  teata. 

--  Programming  notea: 

o  The  package  T_ROUTINE  containa  a  email  routine  PROC,  which  airnply 

—  aaaigna  a  fixed  value  to  the  aingle  integer  argument,  ARC.  It  ia 
iaolated  in  a  package  to  prevent  ita  being  opt  lad.  zed  to  an  inline 
aaaignment . 

—  Known  buga: 

—  <none> 

—  Who  Data  Ramarka 


—  SWA  16  June  87  Corrected  cowaent  a . 

—  NWA  4  April  87  Adapted  from  bancharking  taat  routine  TEST_9. 


package  T_ROUTINE  ia 

procedure  PROC(ARS:  in  out  INTEGER); 
end  T_ROUTINE; 

with  T_R0UTIN1;  uae  T_R0UTIN1; 
with  CALENDAR;  uae  CALENDAR; 
with  T1XT_I0;  uae  TXXT_IO; 

procedure  CAL2  la 

package  TIME_IO  la  new  FIXBD_IO  (DURATION) ;  uae  TIME_IO; 
package  INT_IO  ia  new  INTEGERJCO ( INTEGER) ;  uae  INT_IO; 

L00P_RZP1TXTX0NS :  conatant  INTEGER  100000; 

TEST~REPETXTXONS:  constant  INTEGER  5; 

SEQUSNCE_COUNT :  constant  INTEGER  4; 

LOOP  COUNT:  constant  INTEGER  :-  5; 


LOOP  Tins: 


array  ( X . . TEST_REPETI TIONS ,  1 . . SEQUBNCB_COUNT , 

1 . .  LOOP_COUNT )  of  DURATION; 

SEQUENCE  LENGTH:  constant  INTEGER  :■  (LOOP  COUNT  *  2)  -  1; 

CALLING_SBQUENCE:  array  (1 . .  TZST_REPSTITIONS,  1. . SEQUENCE_COUNT)  of 

STRING (1 . .SEQUENCE  LENGTH) ; 


function  LOOP_l  return  DURATION  is 

START_TIMR:  TIME; 

KND_TIME :  TIME; 

A_VALUE:  INTEGER  12; 

begin 

STARTTIME  ;»  CLOCK; 
for  INDEX  in  1. .LOOP_REPETITIONS  loop 
PR0C  (A_VALUE)  ; 
and  loop; 

END_TXME  :■  CLOCK; 
return  ENDJtlMK  -  START  TIME; 
end  LOOP  1;  “ 


function  LOOP_2  return  DURATION  is 

START  JUNE:  TIME; 

END  TIME:  TIME; 

A_VALOX:  INTEGER  :-  12; 

begin 

START  TIME  :-  CLOCK; 
for  INDEX  in  1. .LOOP  REPETITIONS  loop 
PROC (A_VALUE) ; 
and  loop; 

END_TIME  CLOCK; 
return  BND_TIME  -  START  TIME; 
end  LOOP  2;  “ 


function  LOOP_3  return  DURATION  is 

START  TIME:  TIME; 

END  TIME:  TIME; 

A_VALUE:  INTEGER  12; 

begin 

START_TIME  :-  CLOCK; 
for  INDEX  in  1 . . LOOP  REPETITIONS  loop 
PROC  (A_VALUE) ;  “ 

end  loop; 

END_TIME  CLOCK; 
return  END_TIME  -  START_TIME ; 
and  LOOP  3; 


function  LOOP_4  return  DURATION  is 

START_TIMB:  TIME; 

END_TIME:  TIME; 

A  VALUE:  INTEGER  12; 
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START_TIMB  CLOCK; 
for  INDEX  in  1. .LOO?  REPETITIONS  loop 
PROC (A_VALUE) ; 

•nd  loop; 

END_TIME  CLOCK; 

rot urn  END  TIME  -  START  TIME; 

•nd  LOOP  4; 


function  LOOP_5  rot urn  DURATION  ia 

START_TIME:  TIME; 

*ND_TIME:  TIME; 

A_VALUE:  INTEGER  :■  12; 

bogin 

START_TIME  CLOCK; 

for  INDEX  in  1 . . LOOP_REPETITIOMS  loop 
PROC (AJTALUE) ;  ~ 

•nd  loop; 

END  TIME  CLOCK; 

roturn  END_TIMX  -  STARTJTIME; 

•nd  LOOP  5; 


bogin 

for  CURRENT  TE8T  in  1. 


.  TEST_REPKTinONS  loop 


—  Calling  aequenoe  ono; 

CALLING  SEQUENCE  (CURXENT_TESr, 
LOOT_TINES  (CURRENT  TEST,“l,  1) 
LOOP_TIMES(CURRENT~TEST,  1,  2) 
LOOP  TIMES  (CURRENT-TEST,  1,  3) 
LOOP  TIMES (CURRENT_TEST.  1,  4) 
LOOT-TIMES (CURRENT  TEST,  1,  S) 


1)  :-  "1-2-3-4-5" 
:•  LOOP  1; 

LOW-2; 

LOOP  3; 

LOOT— 4; 

:«  LOOP- 3; 


Calling  aegueno*  two: 

CALLING_SEQUENCE (CURRENT_TEST , 
LOOP_TIME8  (CURRENT_TEST,  2, 
LOOP_TIMES(CURRENT_TKST,  2, 
LOOP- TIMES (CURRENT- TEST ,  2, 
LOOP  TIMES (CURRENT-TEST,  2, 
LOOP  TIMES (CURRENT-TEST,  2. 


2)  :-  "5-4-3-2-1" 


3) 

:-  L00P_5; 

4) 

:-  LOOP- 4; 

3> 

:•  LOOP 

3; 

2) 

:-  LOOT' 

2; 

1) 

:-  LOOT" 

*1; 

—  Calling  aequence  thro*: 


CALLING_SEQUENCE (CURRENT. 

TEST, 

3) 

:-  "2-5 

LOOP_TIKES (CURRENT  TEST,’ 

_3.  2) 

:  ■ 

LOOP_2; 

LOOP- TIMES (CURRENT- TEST , 

3,  5) 

;  m 

LOOP- 5 ; 

LOOT- TIMES (CURREKT— TEST , 

3.  1) 

;  m 

LOOP- 1  ; 

LOOT- TIMES  (CURRENT- TEST , 

3.  3) 

;  m 

LOOP- 3; 

LOOP- TIMES ( CURRENT- TEST , 

3,  4) 

l m 

LOOP- 4; 

Calling  aequence  four: 

CALLIMG_SEQUENCS (CURRENT_TEST, 
LOOP  TIMES (CURRENT  TEST,~4,  4) 
LOOP- TIMES (CURRENT- TEST,  4,  1} 
LOOP- TIMES (CURRENT- TEST,  4,  5) 
LOOP- TIMES (CURRENT- TEST,  4,  2) 
LOOP™ TIMES (CURRENT” TEST ,  4,  3) 
•nd  loop; 


4)  :-  "4-1-5-2-3" 

-  LOOP  4; 

-  LOOP— 1; 

-  LOOP-5; 

-  LOOP- 2 ; 

-  LOOP  3; 


PUT_LINE ( "CAL2 — Multiple  execution*  of  identical  loop*- -tiiao  in  *ocond •:") 
MEN- LINE; 

PUT- LINE ( ”T«at  •  LOOP_l  LOOP_2  LOOP_3  LOOP_4  LOOP_5  Calling  Order"); 
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A 


for  INDEX_1  in  1 . . TEST_REPETITIONS  loop 
for  INDEX_2  in  1.. SEQUENCE  COUNT  loop 

PUT ( ( ( (INDEX_1  -  1)  *  SEQUENCE JCOUNT)  +  INDEX_2) ,  6) ; 
for  INDEX_3  In  1. .LOOP_COUNT  loop 

PUT (1^0P_TIMES (INDEJC_1,  INDEX_2,  INDEX_3) ,  5,  2) ; 
•nd  loop; 

PUT(“  ")  ; 

PUT  <CALLING_SEQUENCE  (INDEX  1,  INDEX_2)  )  ; 

NEW_LINE ; 

•nd  loop; 

•nd  loop; 

•nd  CAL2; 

package  body  T_ROUTINE  ia 

procedure  PROC (ARC:  in  out  INTEGER)  ia 

b«gin 

ARC  42; 

•nd  PROC; 

•nd  T  ROUTINE; 


C.b.  CAL2  Source  Code  for  the  MC68020/SD-Ada 


—  CAL2  ia  a  benchmark  calibration  routina  intended  to  taat  tha  aaaumptlon 

—  that  taxtually  identical  loopa  will  taka  (approximately)  tha  aama  amount 
--  of  tima  to  axacuta. 

—  CAL2_SD  ia  a  modified  varaion  which  uaaa  tha  raatrictad  I/O  facilitaa 

—  provided  by  tha  SD  compiler  (Ver.  2B01) . 

—  Tha  routine  waa  daviaad  to  verify  that  benebmarka  which  dapand  on  a 
--  dual  taat  and  control  loop  atructure  will  axacuta  correctly  on  tha 

—  target  ayatam. 

—  Taat  format  ia  to  aall  five  function*  (LOOP_l . . LOOP_5)  axacutad  in 

—  auccaaaion.  Each  function  ratuma  a  DURATION  value,  obtained  uaing 

—  the  Ada  CALENDER. CLOCK  routina.  Tha  tima  ia  obtained  by  aubtracting 

—  tha  tima  aa  tha  routina  ia  entered  from  tba  tima  Just 

—  prior  to  tha  return  to  caller.  Between  tba  two  calla,  a  tight  loop  ia 

—  axacutad  LOOP_REPETITIONS  timaa.  Tha  loop  containa  a  aingla  call  to 

—  procedure  PROC.  PROC  a imply  aarvaa  to  place  a  light  load  in  each  of 

—  tha  timing  loopa. 

—  Tha  taat  calla  ara  made  in  a  number  of  arbitrary  ordara  to  allow 

—  dataction  of  any  affacta  relating  to  tha  total  number  of  machine 

—  cyclaa,  aa  oppoaad  to  tha  ordering  of  tha  LOOP  routinaa. 

—  The  taat  aaquanca  ia  axacutad  TSST_REPETITIONS  timaa  to  allow  for  ayatam 

—  intialization  affacta  (and  poaaibly  intarruptiona  during  execution) . 

—  Raaulta  ara  output  at  tha  conduaion  of  all  taata. 

—  Programming  notea: 

o  Tha  package  T_ROUTINE  containa  a  small  routina  PROC,  which  simply 
assign*  a  fixed  value  to  tha  aingla  intagar  argument,  ARC.  It  ia 
iaolatad  in  a  package  to  prevent  ita  being  optimized  to  an  inline 
assignment . 

—  Known  bugs: 

<nona> 
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—  Who 

Data 

—  NWA 

16  June 

87 

—  JAS 

18  May  l 

97 

—  NWA 

6  April 

87 

—  NWA 

4  April 

87 

Remarks 

Corrected  comments. 

Fixed  so  that  SO  I/O  will  function  correctly. 
Modified  to  work  with  SD  compiler. 

Adapted  from  bencharking  teat  routine  TEST_9. 


a 


package  T_ROUTINE  is 

procedure  PROC(ARG:  in  out  INTEGER) ; 
end  T_ROUTINE; 

with  T_ROUTINE;  use  T_ROUTINB; 
with  CALENDAR;  use  CALENDAR; 
with  TARGET  10;  use  TARGET  10; 


procedure  CAL2_SD  is 

LOOP_REPETITIONS : 
TEST_REPETITIONS : 
SEQUENCE_COUNT : 
LOOP_COUNT: 

LOOP  TIMES: 


SEQUKNCE_LENCTH : 
CALLING  SEQUENCE: 


TEMPFLOAT: 
TEST_NUMBER : 
T_VALUE_INT_PART : 

T  VALUE  FRAC  PART: 


constant  INTEGER 
constant  INTEGER 
constant  INTEGER  : «  4 
constant  INTEGER  : "  5 


100000; 

5; 


array  (1. ,TEST_REPETITIONS,  1 . . SEQUENCE_COUNT . 

1. -LOOP_COUNT)  of  DURATION; 

constant  INTEGER  :-  (LOOP_COUNT  •  2)  -  1; 
array  (1. ,TEST_REPETITIONS,  1 . . SEQUENCK_COUNT)  of 
STRING  <1 . . SEQUENCZ_LENGTB) ; 

FLOAT; 

INTEGER; 

INTEGER; 

INTEGER; 


function  LOOP  1  return  DURATION  is 


START_TIME : 
END_TIME : 

A  VALUE: 


TIME; 

TIKE; 

INTEGER 


12; 


begin 

START_TIMK  :-  CLOCK; 

for  INDEX  in  1. .LOOP_REPETITIONS  loop 
PROC(A_VALUE)  ; 
end  loop; 

END_TIME  :-  CLOCK; 
return  END_TIME  -  START  TIME; 
end  LOOP  1; 


function  LOOP  2  return  DURATION  is 


STARTJTIME : 
BND_TIME : 

A  VALUE: 


TIME; 

TIME; 

INTEGER 


12; 


begin 

STARTJTIME  CLOCK; 
for  INDEX  in  1 . . LOOP_REPETITIONS  loop 
PROC  (A_VALUE)  ; 
end  loop; 
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END_TIMB  CLOCK; 
return  END_TIME  -  START_TIME ; 
•nd  LOOP  2; 


function  LOOP  3  return  DURATION  ia 


START_TIMB: 
END_TIMB : 

A  VALUE: 


TIME; 

TIME; 

INTEGER  12; 


begin 

START_TIME  CLOCK; 
for  INDEX  in  1 . . LOOP_REPETITIONS  loop 
PROC (A_VALUE) ; 
end  loop; 

END_TIME  CLOCK; 
return  END_TIME  -  START_TIME ; 
end  LOOP  3; 


function  LOOP  4  return  DURATION  ia 


START_TIME: 

END_TIME: 

A  VALUE: 


TIME; 

TIME; 

INTEGER  12; 


begin 

START_TIME  :-  CLOCK; 

for  INDEX  in  1.  .LOOP_REPETITIONS  loop 
PROC  (A_VALUK)  ; 
end  loop; 

END_TIME  CLOCK; 
return  END_TIME  -  START_TIME ; 
end  LOOP  4; 


function  LOOP  3  return  DURATION  la 


START_TIME: 
END_TIME : 

A  VALUE: 


TIME; 

TIME; 

INTEGER  12; 


begin 

START_TIME  :-  CLOCK; 
for  INDEX  in  1 . . LOOP_REPETITIONS  loop 
PROC (A_VALUE) ; 
end  loop; 

END_TIME  :«  CLOCK; 
return  END_TIMB  -  START  TIME; 
end  LOOP  5; 


begin 

for  CURRENT_TBST  in  1 . . TBSTJREPETITIONS  loop 
—  Calling  aequance  one: 


CALLING_SEQUENCE  (CURRENT^ 

TEST, 

1) 

:-  " 1 - 2 - 3 - 4 - 5 " ; 

LOOP_TIMES (CURRENT  TEST," 

1, 

1) 

;  m 

LOOP  1; 

LOOP~TIMES (CURRENT_TEST, 

1, 

2) 

;  m 

LOOP- 2; 

- 

LOOP~TIMES <CURRENT_TEST, 

1, 

3) 

l  V 

LOOP_3; 

LOOP_TIMES  (CURRENT*" TEST , 

1, 

«> 

:  • 

LOOP*" 4  ; 

LOOP~TIMES (CURRENT~TEST, 

1, 

5) 

:  * 

LOOP- 5 ; 

PWl 


WWW 
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—  Calling  aaguanea  two: 


CALLING_SEQUZNCB (CURRENT 

TEST, 

2) 

:-  "5-4 

LOOP_TIMES  (CURRENT_TEST, 

'2,  S) 

;  • 

LOOP_5; 

LOOP  TIMES  (CURRENtJtEST, 

2,  4) 

:  ■ 

L00P_4; 

LOOPjTIMES (CURRENtJtBST, 

2,  3) 

;  m 

LOOP J3 ; 

LOOP_TIMES (CURRENT  TEST , 

2,  2) 

; m 

LOOP- 2; 

LOOpJlIMES ( CURRENT JtEST, 

2,  1) 

;  m 

LOOP  Jl  ; 

Calling  aaguanea  thraa: 

CALLING  SEQUENCE  (CURRENT 

TEST, 

3) 

:-  "2-5 

LOOP_TIMES  (CURRENT_TEST, " 

‘3.  2) 

;  m 

L00P_2; 

LOOP_TIMES  (CURRENT  TEST , 

3,  5) 

Z m 

LOOP_5; 

LOOpJtIMSS  (CURRENT  TEST , 

3,  1) 

;  m 

LOOP  Jl  ; 

LOOPJTIMES  (CURRENT  TEST , 

3,  3) 

:  m 

LOOP  J3  ; 

LOOP_TIMES (CURRENT_TEST, 

3,  4) 

;  m 

LOOP J«  ; 

Calling  aaguanea  four: 

CALLING_SBQUBNCB (CURRENT 

TEST, 

4) 

:-  "4-1 

LOOPJTIMES  (CURRENT_TEST , 

'4,  4) 

;  m 

LOOP_4; 

LOOP_TIMES  (CURRENT  TEST , 

4,  1) 

;  m 

LOOP  Jl  ; 

LOOP_TIMBS  (CURRENT  TEST, 

4,  5) 

;  m 

LOOP J5  ; 

LOOP_TIMES  (CURRENT_TEST , 

4,  2) 

•  m 

LOOPJ2; 

LOOPJTIMES  ( CURRENT JTE ST, 

4,  3) 

:  a 

LOOP_3; 

and  loop; 


OUT_STRING  (VDO_PORT, 

"CAL2_SD — Multiple  axacutiona  of  identical  loopa — time  in  aaconda :  " )  ; 
NBW_LINE  (VDU  PORT)  ; 

OUT  ^STRING  (VDU  PORT, 

"Teat  t  LOOP  1  LOOP  2  LOOP  3  LOOP  4  LOOP  5  Calling  Order") ; 
NEW_LINX  (VDO_PORt7; 

for_INDEX_l  in  1.  .TESTJttPBTITIOMS  loop 
for  INDEX_2  in  1 , . SEQUENCE_COUNT  loop 

TEST_NUMBER  :-  ( <INDEX_1  -  1)  *  SEQUKNCK_COUNT)  +  INDEX2 ; 
OUT_DECIMAL_INTEGER(VDU_PORT,  TKST_NUMBKR,  6)  ; 
for  INDEX_3  in  1 . . LOOPjCOUNT  loop 

TEHP_FLOAT  FLOAT (LOOP  TIMES (IMDKX_1,  INDEX  2,  INDEX_3) ) ; 

T_VALUE_INT_PART  :«  INTEGER  (TEMP_FLOAT)  ; 

TEMP_PLOAT  7*  FLOAT  (LOOP  TIMES  (INDEX_1,  INDEX_2,  INDEX_3)  ) 

•  100.0; 

T_VALUE_FRAC_PART  :»  INTEGER (TEMP_FLOAT)  raa  100; 
OOT_DEc5mAL_INTEGER(VDO_PORT,  T_VALUX  INT  PART,  2); 

OurJsTRIMG (VDU_PORT 

OUT_DECIMAL_INTEGBR  (VDD_PORT ,  T_VALDE_FRAC_PART,  2)  ; 
and  loop; 

OOT_STRING(VDU_PORT,  ”  "); 

OtJT_STRING  < VDU_P0RT ,  CALLING  SEQUENCE  ( INDEX  1,  INDEX  2) )  ; 

NEW_LINE (VDU_PORT) ; 
and  loop; 
and  loop; 
and  CAL2  SD; 


packaga  body  T_ROUTINE  la 

procadura  PR0C(ARG:  in  out  INTEGER)  la 

bagln 

ARG  42; 
and  PROC; 


and  T  ROUTINE; 
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